home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbfaqr01.zip / ISCLRMON.BAS < prev    next >
BASIC Source File  |  1992-08-10  |  233b  |  11 lines
  1. DECLARE FUNCTION IsClrMon ()
  2.  
  3. FUNCTION IsClrMon STATIC
  4.    'Captured from post by Joe Negron
  5.  
  6.    'If 0000:0463 = B4, monitor is monochrome, else color
  7.    DEF SEG = 0
  8.    IsClrMon = PEEK(&H463) <> &HB4
  9.    DEF SEG
  10. END FUNCTION
  11.